home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / basic / pbasmlib.zip / PBADEMO6.BAS < prev    next >
BASIC Source File  |  1994-02-12  |  525b  |  25 lines
  1. $string 32
  2. $link "pbasmlib.pbl"
  3. $include "pbasmlib.inc"
  4.  
  5. 'PBASMLIB Sound Module Demo #6 - Repeater
  6. 'Uses foreground sampling and playback.
  7.  
  8. cls:print
  9. print "PBASMLIB Repeater (Talking Parrot Clone)"
  10. print
  11. input "Trigger Level (129-200), try 132: ";tl%
  12. sz%=9000  'Sample length
  13. sbreset
  14. print:print "Talk into the microphone... any key to end."
  15. do
  16.     a%=sbsamplebyte
  17.      if a%>=tl% then
  18.          s$=sbsample$(sz%,35)
  19.           sbplaystring s$,int(50*rnd(1))+1
  20.      end if
  21.      if inkey$<>"" then end
  22. loop
  23.  
  24.  
  25.